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ATARI 


More Jackintosh Adventures 


by Fred Hatfield 

Bitmap Memory Dumps 

Dumping Jackintosh’s 
memory is one way to find out 
about the system operation. 
However, the 520ST is a “new” 
type of computer .-- con¬ 
siderably different from what 
has gone before. Instead of be¬ 
ing “text” oriented, the Jackin¬ 
tosh is part of a breed known 
as “bit-mapped”. “Bit¬ 
mapped” is a fancy way of say¬ 
ing that the screen display is 
controlled by individual pixels 
with representation in 
memory. In other words, for 
every pixel on the screen 


display, there is a correspon¬ 
ding bit in memory that can be 
“on” or “off.” (For simplicity, 
we’ll skip the color concept at 
the moment.) 

If you think about it, that 
means that any text to be 
displayed has to be represented 
by such “bit patterns” in 
memory, i.e., the letters A, B, 
C, E, etc. Each will have to be 
stored in memory and moved 
to the screen display area as 
needed. This also means that if 
you know where the bit pat¬ 
terns are stored, it would be 
possible to substitute another 
“typeface” for the existing one. 
In fact, it would be possible to 


Atari Help 


by Jeff Brenner 

Q. The August 1984 issue of 
Computer Shopper included a 
program for alphabetizing 
words and then storing and 
retrieving these words. This 
program has turned out to be 
very handy. Is there a way to 
delete words from the 
alphabetized list? 

John M. Hirsch 
Normal, IL 

A. There are two easy ways 
to delete an entry from an 
alphabetized list. Consider the 
following string, which 
represents five words A, B, C, 
D and E; 

WORDS$ = “ABCDE” 
Each “word” has its own posi¬ 
tion in the string; “A” is in posi¬ 
tion 1, “B” is in position 2, and 
so forth. Deleting an entry is 
then a simple matter if you are 
familiar with the way Atari 
BASIC handles strings. If you 
wanted to delete the “B” entry 
above, for example, the follow¬ 
ing-command would do the 
trick: 

LET 

WORDS$(2) = WORDS$(3,5) 
This tells the computer to place 
in position 2 (where the “B” 
resides) the entries in positions 
3 through 5. Thus, WORDS$ 
now contains: 

“ACDE” 

The “B” has been deleted. 

A similar procedure can be 
used to delete an entry in 
August’s alphabetizing pro¬ 
gram. For example, to delete 
entry number X, use the 
following: 


LET WORDS$(X*20-19) = 
WORDS$(X*20 + 1,LEN(W0RDS$)). 

A more creative technique 
for deleting an entry in an 
alphabetized list is to assign the 
entry to be deleted a string 
such as “ZZZZZZZZZZZ.” 
When the words are re¬ 
alphabetized, the entry with 
the Z’s will be sorted to the bot¬ 
tom of the list where it can be 
conveniently ignored or 
discarded. 

Q. I am interested in finding 
any information concerning 
the ability of expanding the 
memory on my 800XL Atari. It 
would be greatly appreciated if 
you could tell me if this is possi¬ 
ble and, if so, who I may pur¬ 
chase these components from 
to further the use of my system. 

Andrew Leo Eddings 
Alabaster, AL 

A. Over a year ago I recall 
that Axlon and one other com¬ 
pany had been manufacturing 
a 128K memory expansion for 
the 800 (although this would 
not necessarily be compatible 
with the XL). The extra 
memory was accessed through 
bank switching of a 4K address 
area. I haven’t heard anything 
about it since then, although I 
can tell you that it would not 
be compatible with the DOS 
2.5 RAMDISK for the 130XE. 
If any readers produce or know 
of a 128K memory expansion 
currently available for the 
800XL. Please write and tell 
us. 

continued on page 148 


have a number of substitute 
typefaces that you could select 
at will. 

Here are two programs that 
will display bitmap patterns on 
an EPSON printer. The first 
one (IDUMP for “Icon Dump”) 
(on page 143) will display se¬ 


quential memory locations so 
that you can locate icons. The 
second program (FDUMP for 
“Font Dump”) (on page 58) 
will display “interlaced” 
memory strips to show you the 
construction of a font. “In¬ 
terlaced memory strips” will be 


explained later in this article. 

Icon See You’re Interested 

IDUMP has it’s count con¬ 
trols set for a 32x32 bitmap 
matrix. This is the most 

continued on page 58 


Applying The Atari 



Photo 1 


by Jeff Brenner 

Yes, we’ve made it to 1986, 
and what could be a more ap¬ 
propriate way to start the year 
than with a computerized ap¬ 
pointment calendar program? 
With Pace, the Personal Ap¬ 
pointment Calendar & Editor, 
you’ll never have an excuse for 
missing an appointment again. 
This month we’ll also read 
some reader mail, look back on 
1985, and get a glimpse of 
some Halley’s Comet software 
available for the Atari. 

Retrospect 

Surely, 1985 will be 
remembered for both the Atari 
ST and the Commodore A- 
miga, regardless of how well 
each has sold during this holi¬ 
day season. As I write this col¬ 
umn in November, everybody 
is talking about the amazing 
capabilities of the Amiga. Even 
A.N.A.L.O.G. has acknow¬ 
ledged that many Atari-users 
consider the Amiga to be the 
real next-generation Atari 
machine. For those less in¬ 
terested in the Amiga’s graph¬ 
ics and sound capabilities, 
however, most would agree 
that the Atari 520ST offers 
comparable performance at a 
much more affordable price. 
Maybe everybody should buy 
both machines. Or, how about 
neither. Many computer-users 
dislike the notion of upgrading 
to a new computer when the 
industry tells them to; i.e. 
“now’s the time to dump that 
8-bit antique and get a Mac- 
like machine.” Many 8-bit 
Atari owners have put a signifi¬ 
cant investment in their ma¬ 
chines in software and hard¬ 
ware, and are less than thrilled 
about starting over from 
scratch with a brand new 
system. 

One thing is for certain; 
though. The prices for soft¬ 


ware and hardware for the 
8-bit line have dropped con¬ 
siderably. Many Atari users 
have finally been able to ex¬ 
pand to fully-equipped Atari 
systems with disk drives, mo¬ 
dems, and more versatile print¬ 
ers. The lower disk drive prices 
have made the cassette-based 
Atari system almost extinct; 

Well, by 1986 you’ll know 
the score. I’m still hoping to see 
a true 32-bit, multi-megabyte 
machine from Atari—maybe 
they could add some Amiga- 
rivaling graphics and sound ef¬ 
fects while they’re at it. We’ll 
have to wait and see what 1986 
brings. 

Reader Mail 

Q. I purchased the first issue 
ever of Computer Shopper in 
September and came across 
your Response Analysis Pro¬ 
gram (9/85, page 59), which I 
spent 3 and 1/2 hours typing 
in. I was intrigued with this 
program and looked forward 
to demonstrating it to friends 
and relatives to show that com¬ 
puters can be programmed to 
simulate artificial intelligence. 

After keying it in, it did not 
work properly. Enclosed I give 
you a printout showing an ex¬ 
ample of the responses I get. 


The program only responds 
with the statements contained 
in the last few lines, i.e. 5580 
to 5587. It does not pick up on 
the key words the way it is sup¬ 
posed to. Any suggestions? 

H. G. Hittenberg 
Toronto, Ont. Canada 

A. The printout that H.G. 
Wittenberg sent me was quite 
humorous and a portion of it 
follows: 

>1 WANT TO TALK ABOUT 
WORK 

RAP: EXPLAIN FURTHER 

>WORK - YOU KNOW - 
WHERE ONE GOES TO 
EARN MONEY 
RAP: AND WHAT DO YOU 
THINK ABOUT THAT? 


>1 THINK WORK IS 
NECESSARY AND 

ENOBLING 

RAP: I DON’T 

UNDERSTAND 


>WELL, YOU ARE NOT 
PICKING UP THE KEY 
WORD WORK! 

RAP: WHAT ELSE SHOULD 
I KNOW? 


continued on page 58 
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Applying The Atari 
continued from page 57 

>YOU ARE MAKING ME 
ANGRY 

RAP: YOU SEEM UNCOM¬ 
FORTABLE WITH THIS 
TOPIC! 

>NO, I AM ANGRY AND 
MAD THAT YOU DO NOT 
PICK UP THE KEY WORDS 
RAP: TELL ME MORE. 

>LOOK UP DATA STATE¬ 
MENT IN LINE 1280- 
THAT’S WHERE YOU FIND 
ANGRY, MAD 
RAP: THAT IS 

INTERESTING-GO ON. 

>YOU ARE SUPPOSED TO 
COME UP WITH 
RESPONSE IN LINES 
5390-5392! 

RAP: LETS HEAR ALL 
ABOUT IT! 

While it may seem that RAP 
is putting up a good fight with 
H. Wittenberg, RAP is answer¬ 
ing only with its dummy re¬ 
sponses, such as “AND WHAT 
DO YOU THINK ABOUT 
THAT?’; and “TELL ME 
MORE.” 

The Response Analysis Pro¬ 
gram as listed in the September 
1985 column, has been tho¬ 
roughly tested on an Atari 800, 
800XL, and 130XE, and will 
work perfectly if it has been 
entered correctly. The cause of 
H. Wittenberg’s problem is 
most definitely a typing error. 
However, a TRAP statement 
in the program makes it dif¬ 
ficult to spot errors since a faul¬ 


ty program will still run 
without error messages; the 
program is directed to give a 
dummy response whenever an 
error occurs in the program. 
Therefore, readers who are not 
getting proper responses from 
RAP, should change the TRAP 
1190 on line 650 to a TRAP 
40000. This disables the trap 
command and will let the pro¬ 
gram stop executing when an 
error occurs. 

The best way to check RAP 
is to type in some lines from the 
sample conversation provided 
on page 59 of September’s is¬ 
sue. For example, if you type: 

I’M CHECKING TO SEE IF 
YOU WORK PROPERLY. 

RAP should give a response 
such as:' 

FOR HOW LONG HAVE 
YOU BEEN CHECKING TO 
SEE IF I WORK PROPERLY. 

If you enter H. Wittenberg’s 
statement, “I WANT TO 
TALK ABOUT WORK,” a 
properly entered RAP will res¬ 
pond with a response such as: 

DO YOU KNOW MANY 
PEOPLE WHO ENJOY 
THEIR JOBS? 

As I have stressed in the past, 
the best insurance against typ¬ 
ing errors when entering pro¬ 
grams from this column is the 
Program Perfect utility, which 
uses the three-letter codes pre¬ 
ceding each program line to 
verify lines as they are entered 


into the computer. See April’s 
column (1985) for a listing of 
Program Perfect (the instruc¬ 
tions are printed in May’s col¬ 
umn), or readers can purchase 
a Program Perfect diskette 
with documentation (see the 
end of this article). 

Q. Regarding the small print 
in the manual supplied by Op¬ 
timized Systems Software for 
their Basic XE cartridge (and 
presumably for their other pro¬ 
ducts as well). It seems I, with 
overworked and less than per¬ 
fect eyesight, trustingly 
ordered Basic XE by mail. 
Now, I have no gripe with the 
product. A recently published 
benchmark sort took nine 
minutes on my 130XE. When 
I plugged in the Basic XE car¬ 
tridge, just to see what would 
happen (since I can’t read the 
tiny print in their manual) the 
same exact benchmark ran in 
3:30 flat. This is clearly a 
powerful product but, alas, I 
may never get full use of it, 
despite having paid full price. 
Oh, I know I could have got¬ 
ten a refund. That’s not the 
point. I want everything this 
product can do for me—the full 
capability I paid for. So, I 
wrote a strong gripe on the 
warranty form when I sent it 
in. The response from OSS to 
date has been a big round 
zilch. Ironically, they have 
other products I’d like and can 
afford to buy. Will I? Will 
you? 

I’ve spent many years in 
marketing and advertising and 
there’s a moral here. The smart 
marketers today know that it’s 


not enough merely to make the 
initial sale of complex hard¬ 
ware, software or firmware 
products. You must support 
(and keep on selling) every 
customer after the sale if you 
want to build your company. 
The only practical way to do 
that for sales that doesn’t 
amount to big hucks is by pro¬ 
viding manuals that are prac¬ 
tical, understandable and 
readable. In fact, good 
manuals are powerful market¬ 
ing tools for high-tech pro¬ 
ducts. We get them from Syn¬ 
apse, from Datasoft and 
others. Even the tiny “one guy 
and a bright idea” operators 
are putting out documentation 
that’s readable, even if they 
don’t spell too well. 

Unfortunately, OSS saw a 
chance to save a few bucks on 
printing and paper; a decision 
that may be good finance but 
is lousy marketing. It cheats 
every customer who doesn’t 
have the eyes of an eagle. So, 
watch yourselves, all near¬ 
sighted hackers. Caveat emp- 
tor is alive and well in the 
marketplace. 

Boy Hutchins 
Rochester, NY 

A. I’m well aware of how 
annoying small print can be, 
even for those of us with the 
best eyesight, as I have receiv¬ 
ed numerous letters about the 
small size of the program list¬ 
ings in this column. I can im¬ 
agine that this would be even 
mor6 frustrating when one 
pays good money for a com¬ 
mercial software product from 
a respectable company such as 


FDUMP Program 


TO PARSE iA 
MAKE "B .EXAMINE :A 
MAKE "Cl INT <sB / 16) 

MAKE "C2 «B - <16 * iCl) 
BREAKUP sCl 
BREAKUP iC2 
END 

TO BREAKUP sCX 

IF OCX * 0) CRUN iGRO 60 "Z3 

IF OCX ■ 1) CRUN *GR1 GO "Z3 

IF OCX * 2) CRUN iGR2 GO "Z3 

IF OCX * 3) CRUN iGR3 60 “Z3 

IF OCX - 4) CRUN «GR4 GO M Z3 

IF OCX • 3) CRUN s6R5 GO "Z3 

IF OCX * 6) CRUN «GR6 GO "Z3 

IF OCX - 7) CRUN iGR7 GO "Z3 

IF OCX - 8) CRUN iGR8 GO "Z3 

IF OCX • 9) CRUN iGR9 GO "Z3 

IF OCX * 10) CRUN «GRlO GO "7 3 

IF OCX - 11) CRUN s6R11 60 "Z3 

IF OCX » 12) CRUN »GR12 GO "Z3 

IF OCX » 13) CRUN I6R13 60 "Z3 

IF OCX » 14) CRUN i 6R14 GO "Z3 

IF OCX * IS) CRUN I GRIS GO "Z3 

LABEL "Z 


END 

|TO DGR0 

MAKE "GRO CTYPE CHAR 93 TYPE CHAR 93 TYPE 
|END 


CHAR 93 TYPE CHAR 933 


TO DGR1 

MAKE "6R1 CTYPE CHAR 93 TYPE CHAR 93 TYPE CHAR 95 TYPE CHAR 2233 
END 

TO DGR2 

MAKE "GR2 CTYPE CHAR 93 TYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 933 
END 


TO D6R3 

MAKE "GR3 CTYPE CHAR 95 TYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 2233 
END 


TO DGR4 

MAKE "GR4 CTYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 95 TYPE CHAR 933 
END 


TO DGR3 

MAKE "GR5 CTYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 95 TYPE CHAR 2233 
END 


TO DGR6 

MAKE "GR6 CTYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 953 
END 

TO DGR7 

MAKE "GR7 CTYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 2233 
END 


TO D3RS 

MAKE "GRB CTYPE CHAR 223 TYPE CHAR 93 TYPE CHAR 95 TYPE CHAR 953 
END 

TO D6R9 

MAKE "6R9 CTYPE CHAR 223 TYPE CHAR 95 TYPE CHAR 95 TYPE CHAR 2233 
END 

r 

TO D8R10 

MAKE "BRIO CTYPE CHAR 223 TYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 953 
END 

TO DOR It 

MAKE "6R11 CTYPE CHAR 223 TYPE CHAR 93 TYPE CHAR 223 TYPE CHAR 2233 
END 

TO D6R12 

MAKE "GR12 CTYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 95 TYPE CHAR 953 
END 

TO D6R13 

MAKE "GR13 CTYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 93 TYPE CHAR 2233 
END . 

TO DBR14 

MAKE "BR14 CTYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 933 
END 

TO DGR13 

MAKE "GR13 CTYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 2233 
END 

TO INITDMP 

D6R0 DGR1 DGR2 DGR3 DBR4 D6R3 D6R6 DGR7 DBR8 
D6R9 DGR10 DGR11 DGR12 DBR13 DQR14 DORIS 

TO F0UMP lA 
MAKE “D lA 
MAKE "LCNT 14 
LABEL "FD2 

IF (bLCNT - O) CGO "FD43 
MAKE "CNT B 
TYPE iA 
MAKE "C lA 
LABEL "ID2 

IF (aCNT - O) CGO "ID43 
PARSE aA 

MAKE “CNT aCNT - 1 
MAKE "A lA ♦ 1 
GO “ID2 
LABEL “ID4 
PRINT C 3 
MAKE "A tC ♦ 236 
MAKE "LCNT aLCNT - 1 
GO "FD2 
LABEL "FD4 
PRINT C 3 
MAKE "A aD * B 
FDUMP aA 
END 

Program continued on page 144 


Optimized Systems Software. 
But perhaps an even more 
serious problem lies with the 
manufacturers that print 
manuals that are legible, but 
make no sense to the average 
computer user. This is seen fre¬ 
quently in the computer in¬ 
dustry with companies that let 
their programmers and en¬ 
gineers write the manuals, in¬ 
stead of hiring a professional 
writer. .Even worse are the 
companies that do not provide 
enough documentation, or 
none at all. Such was the case 
for a long time with Atari’s XL 
computers. The machines 
came with a little booklet that 
gave instructions for setting up 
the machine and disk drives- 
a far cry from the reference 
manual and BASIC book that 
were included with my origi¬ 
nal Atari 800 several years ago. 
Now Atari is including a much 
more substantial 130-page 
booklet and hopefully other 
companies, such as OSS, will 
move in this direction, for their 
own good as well as for their 
customers’. 

RAP Intelligence Expansion 

October’s (1985) column 
contained instructions for ad¬ 
ding your own keywords and 
responses to RAP. For those 
readers who still want to teach 
RAP some new tricks, I have 
put together over 30 more key¬ 
words and more than 100 ad¬ 
ditional responses. I don’t have 
space to print it in the column, 
but the “Intelligence Expan- 

.continued on page 147 


Jackintosh 

continued from page 57 

popular configuration for 
icons, although not the only 
one. In my previous efforts of 
examining memory, I located 
some of the icons used on the 
opening display screen. Enter 
the listing for IDUMP and run 
it starting at memory location 
121370 decimal. The com¬ 
mand should resemble the 
following: 

IDUMP 121370 

During execution, you will 
see the file drawer, file folder, 
trash can, program icon, and 
cjata icon. Notice that each 
icon has a “mask” preceding 
the icon which is used as a 
background to prevent the icon 
from merging with the screen 
color and “disappearing.” 
Each line on the printout is 
preceded by it’s memory ad¬ 
dress. The “O” bits are 

represented by an under (_) 

for reference purposes. Since 
this program is only a skeleton, 
further refinements can be 
added to make it more useful. 
For example, instead of using 
the underline character, you 
could use a capital “L,” which 

continued on page 143 



Jackintosh 

continued from page 58 

would give a more definite pix¬ 
el representation. 

The printer representation 
for a “1” is a filled character 
cell (decimal 95). Since the 
proportions on the printer are 
different than that of the 
screen, the icons will be ex¬ 
tended vertically. This is not a 
handicap, since it allows more 
room for referencing in¬ 
dividual bits and allows closer 
examination of bit-mapped 
techniques. 


Bit-Mapping The System Font 

The second program, 
FDUMP is set up to dump the 
standard 8x16 system font that 
starts at memory location 
101027 decimal. Notice that 
the font is arranged in memory 
strips of 16 groups. Each group 
consists of a “scan line” of 8 bits 
representing a horizontal por¬ 
tion of a character. If we look 
at the top scan line in se¬ 
quence, it would be each 8 bits 
across the top of the entire 
ASCII character set. When we 


IDUMP Program 

TO PARSE iA 
MAKE "B .EXAMINE 8 A 
MAKE "Cl INT <sB / 16) 
MAKE "C2 sB - (16 * sCl) 
BREAKUP tCl 
BREAKUP iC2 
END 


TO BREAKUP sCX 


IF 

(sCX 

m 

0) 

CRUN 

: GRO 

GO 

"Z 3 

IF 

(iCX 

m 

i) 

CRUN 

3 6R1 

GO 

"Z3 

IF 

( 3 CX 

m 

2) 

CRUN 

:GR2 

GO 

"Z3 

IF 

(iCX 

s 

3) 

CRUN 

s GR3 

GO 

"Z3 

IF 

(iCX 

m 

4) 

CRUN 

s GR4 

GO 

"Z 3 

IF 

(tCX 

m 

3) 

CRUN 

sGRS 

GO 

"Z3 

IF 

(iCX 

m 

6) 

CRUN 

s GR6 

GO 

"Z3 

IF 

(iCX 

SB 

7) 

CRUN 

3 GR7 

GO 

" Z 3 

IF 

(iCX 

m 

8) 

CRUN 

sGRB 

GO 

"Z 3 

IF 

(iCX 

ms 

9) 

CRUN 

8 GR9 

GO 

*' Z 3 


IF <*CX * 10) CRUN iQR10 60 "Z3 

IF (iCX * 11) CRUN sGRll GO "Z3 

IF (sCX - 12) CRUN i6R12 GO "Z3 

IF OCX * 13) CRUN JGR13 GO "Z3 

IF (:CX - 14) CRUN tGR14 GO "Z3 

IF (:CX - 13) CRUN 3GR15 GO "Z3 

LABEL "Z 
END 


TO DGRO 

MAKE "GRO CTYPE CHAR 95 TYPE CHAR 93 TYPE CHAR 95 TYPE CHAR 953 
END 

TO DGR1 

MAKE "GR1 CTYPE CHAR 95 TYPE CHAR 95 TYPE CHAR 95 TYPE CHAR 2233 
END 

TO DGR2 

MAKE "GR2 CTYPE CHAR 95 TYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 953 
END 

TO DGR3 

MAKE "GR3 CTYPE CHAR 95 TYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 2233 
END 

TO D6R4 

MAKE "6R4 CTYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 95 TYPE CHAR 953 
END 

TO DGR5 

MAKE "GR5 CTYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 95 TYPE CHAR 2233 
END 

TO DGR6 

MAKE "GR6 CTYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 953 
END 

TO D6R7 

MAKE M GR7 CTYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 2233 
END 

TO DGR8 

MAKE M GRB CTYPE CHAR 223 TYPE CHAR 93 TYPE CHAR 95 TYPE CHAR 933 
END 

TO DGR9 

MAKE *'GR9 CTYPE CHAR 223 TYPE CHAR 93 TYPE CHAR 93 TYPE CHAR 2233 
END 

TO DGRIO 

MAKE "BRIO CTYPE CHAR 223 TYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 953 
END 

TO DGR11 

MAKE "GRII CTYPE CHAR 223 TYPE CHAR 95 TYPE CHAR 223 TYPE CHAR 2233 
END 

TO DGR12 

MAKE "GR12 CTYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 93 TYPE CHAR 953 
END 

TO D0R13 

MAKE -QR13 CTYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 93 TYPE CHAR 2233 
END 

TO D6R14 

MAKE M 0R14 CTYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 933 
END 

TO DGR15 

HAKE "GRIS CTYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 223 TYPE CHAR 2233 
END 

TO INSTDMP 

DGRO DGR1 DGR2 DGR3 DGR4 DGR3 DGR6 D6R7 DGRO 
DGR9 DGRIO DGR11 DGR12 DGR13 D6R14 DGR13 
ENO 

TO IDUMP lA 
MAKE "CNT 4 
TYPE lA 
LABEL M ID2 

IF OCNT - 0) CGO “ID43 
PARSE lA 

HAKE “CNT lCNT - I 
HAKE "A lA + ! 

60 “102 

LABEL M 1D4 T 

PRINT C 3 1 

IDUMP lA 
END 


reach the end of the first 8 bits 
of the top line, we return to the 
next scan line start address, 
(101027 + 256 = 101283) and 
there we can scan the next 
group of 8 bits just below the 
top line of the previous scan. 

Since the paper we print on 
is only 8” wide, we can’t print 
the entire top line scan of all 
256 characters, so we divide it 
into 8 characters across the 
page. This means that we will 
print out the bitmap in sections 
of 64 bits across by 16 bits high. 
This works out to give us all 
255 characters in sequence in a 
display that will be sensible 
and useful. (I hope!). 

Note that this is set up for 
Jhe 8x16 character set. If you 
wish to dump an 8x8, you will 
have to modify the program 
control counts suitably. 

Interestingly enough, ex¬ 
amination of the print outs 
show that you could still use 
only every other line of an 8x16 
character set and still have a 
readable character set. 

Comments 

Type the Logo programs in 
as shown. Make sure that all 
typographical errors are resolv¬ 
ed and then save them as 
‘TDUMP.LOG” and 

“FDUMP.LOG.” 

When preparing to execute, 
be sure to run “INITDMP” 
first so that all the variables 
will have been defined before 
they are used. 

If you want a darker copy on 
the Epson printer, precede 
your dump command with: 
TYPE CHAR 27 PRINT 
CHAR 71. This command 
makes the Epson double print 
everything so that you get a 
darker copy. Remember that 
the double print command will 
stay in effect until you send a 
new command or until you 
turn the printer power off and 
then on. Don’t forget to send 
the COPYON command 
before you start your dump. 
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Bit map dumps can locate 
interesting patterns in memory 
and aid in troubleshooting. 
They also provide an achival 
record of graphics, icons, and 


font designs. If you have any 
ideas or comments, please send 
them to me at: Fred Hatfield, 
Box 52466, New Orleans, LA 
70152. • 



IDUMP 

?IDUMP 121370 
121370 
121374_ t 
121370 
12138: 

121386 
121390 
121394 
121390 

121W2 _| 

121406. 

121410 
121414 

12141 

12142 
121426| 

12143< 

1214: 

121438| 

12144 
121446 
121450 
121434 
1214SB 
121462 
121466 
121470 
121474 
121478 
121482 
121486 
121490 
121494 
121498 
121502 
121506 
121510 
121514 
121518 
121522 
121526 
121530 
121534 
121538 
121542 
121546 
121550 
121554 
121558 
12156: 

121566 
121570 
121574 
121578 
121582 
121586 
121590 
121594 
121598 
121602 
121606 
121610 
121614 
121618 
121622 
121626 
121630 
121634. 

12163B 
121642 
121646 
121650 
121654 
121658. 

121662. 

121666. 

121670. 

121674. 

121678* 

121682. 

121686. 

121690 
121694. 

121698. 

121702. 

121706. 

121710. 

121714 
121718 
121722 
121726 
121730. 

121734 
121738 
121742 
121746 
121750 




121754 

121758 

121762 

121766 

121770 

121774 

121778 

121782 

121786 

121790 

121794 

121798 

121802 

121806 

121810 

121814 

121818 

121822 

121826 

121830 

121834 

121838 

121842 

121846 

121850 

121854 

121858 

121862 I 
121866 
121870 
121874 
121878 
121882 
121886 
121890 
121894 
121898 
121902 
121906 
121910 
121914 
121918 
121922" 
121926 
121930 
121934 
121938 
121942 
121946 
121950' 
121954 
121958 
121962 
121966 
121970 
121974 
121978 
121982 
121986' 
121990 
121994 
121998 
12200! 
122006 
122010 
122014 
122018 
122022 
122026 
122030 
122034 
122038 
122042 
122046 
122050 
122054 
122058, 
122062 
122066 
122070 
122074 
122078 
122082 
122086 
122090 
122094 
122098 
122102 . 
122106 
122110 
122114 
122118 
122122 
122126 
122130 
122134 
122138 
122142 




I: 




AFFORDABLE 
ENGINEERING 
MSDOS SOFTWARE 


TRSDOS 

PCDOS 

--\ 


• LOCI PRO Root Locus — $69.95 

• ACTFIL Active Filter Design/Analysis — $69.95 

• STAP Static Thermal Analysis — $69.95 

• MATRIX MAGIC Matrix Manipulation — $69.95 

• RIGHTWRITER Proofreader & Writing Style Analyzer — $74.95 

• ACNAP2 AC Circuit Analysis — $69.95 

• DC NAP DC Circuit Analysis — $69.95 

• SPP Signal/System Analysis — $69.95 

• PLOTPRO Scientific Graph Printing — $69.95 

• PCPLOT2 High Resolution Graphics — $69.95 



Engineering 

Professional Software 

2200 Business Way. Suite 207 • Riverside. CA 92501 • {714) 781-0252 
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Applying The Atari 
continued from page 58 

sion” is available on diskette to 
readers for $5. (See address at 
end of this article.) You must 
have at least a 48K Atari to run 
RAP with the expanded vo¬ 
cabulary. 

Halley’s Comet 

1986 is, of course, the year 
of Halley’s Comet, and a few 
software packages on the 
Halley’s Comet theme are a¬ 


vailable for the Atari astrono¬ 
mers out there. They are: 

Halley Patrol, which in¬ 
cludes an almanac and observ¬ 
ing aid. A diskette Tor the 
800/XL/XE is $19.35. (Urania 
Systems, Box 4890, Richmond, 
VA 23220). 

Urania Systems (address 
above) all produces Spacebase, 
which is an astronomy pro¬ 
gram that turns your television 
screen into a planetarium. 
Over 400 heavenly objects can 


FDUMP continued from page 146 


101186_ 

101442. 
101690 
101954 
102210 _ 
102466 
102722_ 
102970. 
103234. 
103490. 
103746 

104002.. 
104250. 
104514 
104770 . 
105026. 

101194.. . 

101450.. 

101706.. 
101962_ 
102210 

102474.. 
102730 _ 
102906"" 

103242.. 
TO3490 

103754.. 
104010 

104266.. 
104522 

104770.. 
105034 










be plotted on the screen. 
$17.95 for a diskette for the 
800/XL/XE. 

The Halley Project is a 
recreational program which 
teaches characteristics of 
planets and moons. On diskette 
for the 800/XL/XE. (Mind- 
scape, 3444 Dundee Road, 
Northbrook, IL 60062) . 

Corrections/Clarifications 

In November’s column, the 
first and last lines were 
mysteriously omitted from the 



101202 _. 

101456_ 

101714. 

101970 

1022261 

102402 

102730. 

102994 j 

103250. 

103506 

103762 

104010 

104274. 

104530. 

104706. 

105042. 

101210 . 

101466. 

101722 

101970 

102234. 

102490 

102746. 

103002. 

103250. 

103514 

103770. 

104026 

104202. 

104530 

104794. 

105050 
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Programmable Keypad Revi- POP:K = 27:GOTO 730 
sion.. These changes are This enables the ESC key to 
necessary for the program to return you to the menu when 
function properly with the you are on the CATEGORY: 
XL/XE revisions: nromnt 


70 RESTORE:TOT = 0 :FOR 
I = 1536 TO 1616:READ NUM 
490 FOR 1 = 0 TO 16:IF 
PR(I)>-1 _ THEN POKE 
1599 + I,PR(I) 

Additionally, change the 
following line in the Recipe 
Manager program: 

1260 IF 1 = 28 THEN 


POP:K = 27: GOTO 730 
This enables the ESC key to 
return you to the menu when 
you are on the CATEGORY: 
prompt. 

In last, month’s column, the 
program segment that is label¬ 
ed the “continued” section of 
the Simple Memory Tester is 
actually the remaining lines of 
the Recipe Manager Additions. 
Hence, the first part of Recipe 

Continued on page 149 



101210 
101474_ 

Stopped! in FDUMP: 1 
7 


RTR OFFER QUALITY & WARRANTY 


Mono. Graphic Card $12 9 

w/Printer Port Run Lotus 


Mono. & Printer Card 

Text Mode w/Printer Port 

$109 

384 K Multifunction 

$129 

6-PAK 

(OK) 

Color Graphic Printer 

$119 

I RGB, Light Pen Port, Video Optional 

Monochrome Card 

$ 85 

Color Graphic Card 

$ 95 

Disk Control Card 

$ 59 

EPROM Burner 

$ 139 

Serial /Parallel Card 

$ 99 


PC-XT AT Keyboard 
pc/xt5151 Type 


$119 


* Separate Cursor & Num. Pad 

* Germany Cherry Switch Key 

* Professional High Quality 

AT 5060 Type $129 

* AT Compatible 

* Build High Quality 



PC/XT BASIC SYSTEM 

Assembled 
& Tested 

New Year 
Sale 

$659 


Installed in- 

* Metal Case w/Speaker 

* 64OK Type Mother Board 

* 135w DC-Fan Power Supply 

* 5151 Professional Keyboard 

* TEAC Drive w/Disk Controller 

* 256K Memory on Board 

* 90 Days Warranty 

Richwill Tech. Research 
-Manufacturer & Distributor - 

1200 S Atlantic Blvd.,R107 
Alhambra, CA 91803 

* C.O.D. Cashier's Check 

* Sorry No Cheap Quality Here 


( 818 ) 282-4868 

PC/XT/AT Mother Board 
640 K Mother board $19 9 

* 8088CPU, 8087 Optional (0k ) 

8 I/O & EPROM Slots 

AT Mother Board $call 

* 80286CPU, 80287 Optional _ 

2MB Multifunction $ CALL 
Case w/Power Supply $169 

PC/XT Case Build In SP. & Power S. 

PC/XT/AT Metal Case 
pc/xt w/speaker $ 59 

Flip-Top or Slide-In Metal Case 

AT Type _ $ 9 9 _ 

PC-XT-AT Power Supply 

* IBM Same Size 

* DC Fan,PWM Type 135w-pc/xt 

* Protection Ckt. coo 

* FMT Pi ltpr $9 9 


* IBM Same Size 

* DC Fan, FWM Type 

* Protection Ckt. 

* EMI Filter 

* Meets UL/FCC 

* Low Ripple 

* 4 Drives Plug 

* AC 110v/220v 


200w-AT 
$19 9 


DEALER OEM DISTRIBUTOR SPECIAL PRICE JUST CALL 
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Atari Help 

continued from page 57 

Q. I recently purchased a 
Percom disk for my Atari 
800XL because of an article in 
the June 1983 issue of Creative 
Computing (pp. 114-116). 
However, the two Percom 
manuals refer only to the TI 
99/4A. Will this drive work 
with my Atari 800XL? 

Paul T. Johnson 
Ellenville, NY 

A. Unless you know of an 
electronics engineer who owes 
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you a lot of favors, you’re go¬ 
ing to have a rough time try¬ 
ing to get a TI 99/4A Percom 
to work with the Atari. If yQu 
can somehow return the drive 
to where you purchased it, do 
so. I don’t think you can still 
get an Atari Percom drive, but 
you may want to consider an 
Atari 1050 disk drive. Prices on 
this disk drive have dropped 
greatly in recent months. 

Q. Do you know what’s in¬ 
volved hooking up my Atari 
130XE to my shortwave 
communications-receiver to 


SMALL BUSINESS SOFTWARE 


The COMPLETE BUSINESS SYSTEM is leading the way with an accounting 
system based on CHECK BOOK accounting the small business way. No pro¬ 
gramming knowledge needed to operate The COMPLETE BUSINESS SYSTEM, 
you will appreciate the easy to use menus. The COMPLETE BUSINESS SYSTEM 
(twenty modules) covers almost every possible application needed for your 
business, each module includes: 

— Two types of internal help messages. 

— A report generator to customize reports. 

— A manual written in English, not programmer, for the first time user. 

— Runs under PC-DOS or MS-DOS on dual floppies or hard disk. 

— Only file limitation is your disk space. 


GENERAL ACCOUNTING 

ACCOUNTS RECEIVABLE 

ACCOUNTS PAYABLE 

PAYROLL 

APPOINTMENTS 

ESTIMATING 

JOB COSTING 

INVENTORY 

BUDGETING 

ORDER ENTRY 


You may order modules 1,2,3,4 and 
5 at a Special Price, *49 
You may order any module at 
$ 1 5.00 each (mark with "X). 

You may order all the modules at a 
Special Price, *200 
Software Support Available. 


Personal Checks Accepted 

BROWN KELLOGG, INC. 


(11) TIME BILLING 

(12) PURCHASING 

(13) PERSONNEL RECORDS 

(14) EQUIPMENT MAINTENANCE 

(15) PROPERTY MANAGEMENT 

(16) WORK SCHEDULING 

(17) CONTRACT BILLING 

(18) ROUTE SCHEDULING 

(19) PERSONAL CONTACT FILES 

(20) SALES MANAGEMENT 


decode morse on-line? 

Robert Harren 
Pueblo , CO 

A. I suggest you contact 
Cantronics (1202 E. 23rd 
Street, Lawrence, KS 66044). 
I am told that this company 
sells various Atari-compatible 
interfaces and software for 
shortwave communications. 
Good luck. 

Q. Thanks for the keyboard 
programs (latest version in 
November 1985 Computer 
Shopper , page 180). How can 
I change the program to make 
it operate with joystick port §2 
instead of #1? 

Donald Parsons 
Delmar , NY 

A. The following lines can 
be changed to read from 
joystick port 2 instead of port 
1 : 


80 DATA 92,228,174,133,2,240,5,202 
90 DATA 134,204,240,40,174,121,2,228 
120 DATA 204,134,206,230,205,173,115,2 


Address Atari-related ques¬ 
tions to: Jeff Brenner, “Atari 
Help” c/o Computer Shopper, 
P.O. Box F, Titusville, FL 
32781-9990. • 


MacUni verse 

continued from page 94 

(period) sequence to select text 
from the insertion point to the 
bottom of a document. This 
causes an emergency exit from 
the program; 

2. MULTIPLAN: In 
Multiplan versions 1.02 and 
earlier, if the information 
stored in the clipboard is 
greater than 50 cells, and you 
see the message “Save Format¬ 
ted/Unformatted Values,” 
paste them into the Scrapbook 
before trying to paste into 
another application. Clip¬ 
boards storing more than 50 
cells will not transfer to the 
other application; and 

3. CHART: When using 
Chart with Switcher, make it 
the first application that is in¬ 
stalled. If you do not, arrows 
on charts may not appear in 
their correct positions. 

BOOKS: Your Universe 
Master recently received two 
books that can be recommend¬ 
ed; Clapp, Doug Clapp's Jazz 
Book; The Quintessential 
Guide to Mastering Jazz on 
Your Macintosh and Aker, 
Microsoft Basic Programming 
for the Mac. Both are publish- 


ATARI 
520-ST 


5 modules 

_X $15.00 

20 Modules 
Pa. Sales tax 6% 
Ship & Handling 


= $ 49.00 

=$_ 

=$ 200.00 

=$ _ 

=$ 4.00 


9 AM to 9 PM daily 
Ask for 550/555 Series price list. 

@ SANYO 

Microcomputer Systems 



100 BORLAND RD. 
EXPORT, PA. 15632 
(412) 327-3200 



Tech manuals, software, hardware for Sanyo 550/555. 

SANYO IBM Video Board with GW-BASIC. $175 
RS-232C Serial Port for Sanyo 550/555. $CALL * 

Memory Chips for Sanyo 550/555. $CALL 

MISSING LINK Board for 550/555. Up to 768K RAM, clock/calendar with $225 
battery back-up, IBM soft video, plus RAM disk and print spool software. 
NEWPOKER! for 550/555. Great fun for 1-6 players. Includes free RAMTEST. $25 
CORNERMAN Desk Manager. Excellent Sidekick type utility for 550/555. $40 

SUPER ZAP Disk Editor. Easy read/write access to any track and sector on disk. $50 
MTBASIC Compiler for 550/555. Produces super fast code. No run-time fees. $50 

ds°do D s OS 1 II II TI_TD^KIIWdiskdZ 


3210 Terry Drive • Toledo, OH 43613 e Telephone: 419/472-3360 
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for PCjr. ATR flnnn TANDON 10 MEG 

SSSS OISK ATR800064K 

*350 ^*ri95« HAR r ,SKDR,VE 


1TH CONTROLLER 

299 



SVV’DISK DRIVE CASES w/Power 
SINGLE V 2 Ht Cases w/Power.. $44.95 
DUAL V 2 Ht Cases w/Power .. $55.95 
HARD DISK Single w/Power $99.95 

SINGLE V 2 Ht Case Only. $19.95 

DUAL Vz Ht Case Only. $29.95 


S 1 /*” DISK DRIVE CASES W/POWER 1 - 

SUPPLIES . cases accommodate all ^ f 

standard 5 V 4 ” drives 

• New chip resistant finish 

• Over current and over voltage 
protection 

• Dealer inquiries invited 
.• Call or write for quantity 

. discounts 

/' • Guaranteed in writing for 120 

days 

Dual Power Supplies 

• Horizontal - 12x12 V 2 . . $69.95 

• Vertical — 7x12x6 .. $69.95 

• Single Horiz. P/S-6x12x3 V 2 .$44.95 

• 2-Drive Cable ..$21.00 

• 4-Drive Cable ...'..$32.00 

• Dual Case, Horiz. or Vert. (W/O P/S) $29.95 

• Single Case, Horiz. (w/o P/S) ..... $21.95 


DISK DRIVES SS .. $99.95 


SINGLE 8” SS DRIVE ATR READY _ ..$199 

DUAL 8” SS DRIVES ATR READY.$349 

CO-POWER BOARD W/1MB RAM.CALL 

FOR IBM & COMPATIBLES. INTERNAL MOUNT: 

10 MB HARD DISK $499 W/CONTROLLER 
20 MB HARD DISK $549 W/CONTROLLER 


ATARI 

TR8000 64K 
ID DISK DRV 

499 


COMPUTERS^ COLUMBIA.. $1200 

CORONA .... CALL 
age COMPUPRO 

2 HD 16MB EA CALL 

ACTRIX PORTABUE CP/M & MS-DOS 
20 Built-In Printer, 2 Modems .$1895 

PRICES MAY BE LOWER AT TIME OF PUBLICATION 
9.95 TERMS: Personal checks allow 14 days, COD, MO., 
>9 95 Certified Checks ... Credit Cards and 3.5% 

* Q( _ Shipping and handling: $2.00 plus current UPS or 

1 nn Parce * Post rates. 

2 oo ORDERS ONLY 1-800-351-0295 
Jg. IB COMPUTERS 503 297-8425 

1519 S.W. Marlow, Portland, OR 97225 


POT ALL CABLES & 
POWER SUPPLIES INTO 
ELEGANT BOX UNDER 
YOUR MONITOR. 
CENTRAL SWITCH. 
ROOM FOR 3RD DRIVE 
POWER SUPPLY. FAN 

SALE! 

MINDSET COMPUTERS 

MODULES 

SOFTWARE 

A TAD I WE SELL EVERYTHING 
A1/\K1 FOR ATARI 


SCHOOLS NOTE: NETWORK 
4 Ataris to Drive and/or Printer 
ONLY $125 + CABLES 


PWW WF QTOPK 

XI OWNERS CORCOMP STUFF 
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ed by Scott, Foresman and 
company and cost $17.95. 

Clapp’s book is merely an in¬ 
troduction to using Jazz; not a 
Jazz encyclopedia. This book 
should be read by anyone 
thinking about buying Jazz. It 
will provide the reader with an 
overview of the program’s cap¬ 
abilities and help the novice 
user get started. If you already 
have Jazz or are a computer 
whiz, save your money by not 
buying this book. 

Aker’s book is similarly 
limited. As stated in the in¬ 
troduction “whether you are 
new to BASIC or new to the 
Macintosh or new to both, this 
guide is meant for you.” All the 
important concepts of Micro- 
Soft BASIC are covered along 
with short programs il¬ 
lustrating each idea. The only 
caveat with this book is that 
your Universe Master does not 
know how current it is. 
Microsoft will shortly release 
version 2.01 of BASIC. If that 
version is as different from ver¬ 
sion 2.0 as 2.0 was from 1.0, 
then the book is seriously 
outdated. 

COMPUSERVE: This 

month’s CompuServe pick is an 
arcade game called Social 
Climber. The goal of the game 
is to transverse a level of seven 
floors within a limited time 
period without being hit by a 
moving elevator. Every time 
one level is transversed another 
level appears. The higher the 
level, the faster the elevators 
move and the less time you 
have to transverse it. 

Social Climber is shareware 
and you are encouraged to 
send a small monetary token to 
the developer, CSI Design 
Group. Social Climber is found 
in DL5 of CompuServe MAUG 
SIG under the file name 
SCLIMB.BIN. 

continued on page 160 


GIGANTIC SALE!!! 

CENTURIAN 

ENTERPRISES 


_ Atari Hardware & Parts _ 

Centurian/Ateri 810 Disk Drive S 199 (7) 

Atari 1050 Disk Drive $ 169 (6) 

1050 Double Density Kit (US Doubler) $ 54 (3) 

Happy Enhancement (1060 or 810) S 157 <31 

Atari I30XE Computer. 128K $ 137 (5) 

Atari 520ST Computer System, Includes Disk Drive. 
Computer W/512K. Monitor. + FREE-SOFTWARE!!!!!!! Color 
System $ 929 112) Monochrome System $ 749 110) Add a Star 
SO 10 Printer w/NLQS 249(7) Free Cable! 

Atari Numeric Keypad w/Driver pragmas S 17 (3) 

Atari 400 48K RAM Expansion. Complete S 35 (21 

400/800 OTIA CPU Board $ 18 (21 

800 OS ROM version B Board $ 17 (2) 

400/800/810/850/1050/1020 Power Adapter $15 (3) 

13 pin I/O Plug, Cable end or Port type S 3 (II 

I/O Data Cable. 6 foot length $ 12 (21 

Atari Joysticks. $ 5 (II each - Paddles $ 8 121 
Comrex Commander Joystick, Super deal - S 8 (2) 

VIRTUALLY EVERY TYPE OE ATARI REl.ATED PRO¬ 
DUCT IS AVAILABLE AT CENTURIAN CALL OR WRITE 
FOR FREE SPECIALS FLYER. OR SEND SI FOR A FULL 

' _ CATALOG! Dealer pricing available!!! __ 

_ Atari Software & Etc. 

Atari Writer * 29(21 Atari lx)go Package S 35121 
Atari Microsoft Basic 11. cart, w/ref. guide S 25 (3) 

Atari Pilots 20(31 Atari Basic cart. Kit $ 15(3) 

Atari Assembler/Editor cart. Kit $ 15 131 
Atari Conversational Spanish or Italian S 12 (31 
Atari lnv. to Programming 1, 2. or 3 S 10 121 
Atari E.T. Phone Home (cart.l S 5(11 Oraph-it S 7(11 
Atari Touch Typing S 5 (2) Star league Baseball S 7 111 
DE RE Atari book S 12 (31 

We have much, much more available. 520ST software and 
peripherals...Diak Drives. Hard disks and more. 

CENTURIAN DISKETTES. DSDD 5>Lifetime bx/10 S8.90 (1) 


T199 Replacement Keyboard S 7 (31 

TI99 Power Supply Board S 7 12) 

TI99 Power Adapter SI 2 (3) 

TI99 Video Modulator Unit $12 (3) 

TI9 Integrated Circuit Chips 

TMS9900 - *13(11 TMS9901 - S 5111 

TMS9904 - S 5(11 TMS9918 - S 9111 

Complete set of all four _ *27(31 

Ordering Information: UPS shipping charges are shown in brackets 
next to the price of the item. Shipping charges must be included 
with all orders. You may call in your order or mail it in. We accept 
checks, money order. MC & Visa, and COD. Order now. some j 
supplies are limited. 

CENTURIAN ENTERPRISES PO. BOX 3233 SAN LUIS 
OBISPO, CA 93401(8051544^616 Office: 890 Monterey St., SIX). 


( 805 ) 544-6616 



























Z M T M£i N T C&JL £ M JO&f* & JE JO Z TCJf* 

PEJ 10 REM PERSONAL APPOINTMENT CALENDAR/E01TOR 
KGJ 20 REM COPYRIGHT 1986 JEFF BRENNER 
YVJ 30- MIN-1983 

FXJ 40 DIM DISK*(3),FILE*(20):D1SK*-"D1:" 

EPJ 50 FILE*—DISK*iFILES <LEN<F1LE*>+1)—“PACE.DAT" 

YBJ 60 DIM TEXT*(200),A*<200),SP*(24),NAME*(30),DATE*(24) ( DAYS(30),SUM(11> 

AUJ 70 DIM PW*(20)»LS*(366), HS*(366), BYTE*(366),IN*(27), MR*(4),DEL*(23),S*(5) 

LXJ 80 DIM MSG*(240)tMSG*—CHR*(32):MSG*(240)-CHR*(32)tMSGS(2)-MSG* 

NUJ 90 TEXT*—“START"IGOSUB 16101SS-TEXT* 

DVJ 100 DEL*(1)-CHR*(156)iDEL*(23)-CHR*(156)iDEL*(2)-DELS* DEL*(1,1)-CHR*(157) 

LLJ 110 DIM MONTH*(36):RESTORE 27401 FOR 1-1 TO 12iR£AD A*,DAYS 

AUJ 120 MONTH*(LEN(MONTH*)♦l)-A*(1,3): DAYS(I)-DAYS:NEXT I 

GDJ 130 DIM DAY*(21) iFOR 1*1 TO 7:READ ASi DAY* (LEN(DAYS)+1)-A* (1,3> iNEXT I 

JXJ 140 SP*(1)-CHR*(32)*SP*(24)-CHR*(32):SP*(2)-SP*iA*«CHR*(32):A* <2,2)-CHR*(29) 

TVJ 150 A*(3,3)»CHR*(30)iIN*—A*iFOR 1-1 TO 8:IN*(LEN(IN*)*1)-A*tNEXT I 

QHJ 160 RESTORE 2770&FOR 1-0 TO lit READ SUM:SUM(1)-SUM:NEXT I 

JHJ 170 DL—PEEK(560)+2364PEEK(561):MR*-CHR*(28):MR*(2,2)—CHR*(156) 

IOJ 1B0 MR*(3,4)—MR* 

MEJ 190 OPEN *1,4,0,"K:"tPRINT CHR*(125);“STAND BY...«:GOSUB 25601GOSUB 2920 

EEJ 200 GOSUB 1450:POKE 85,8 

UDJ 210 PRINT “INSERT YOUR DATA DISKETTE" 

UOJ 220 TEXT*-“RETURN“xGOSUB 1610 

BOJ 230 POKE 752,1:POKE 85,10:PRIN1 "PRESS ";TEXT*;“ TO BEGIN":POKE 764,255*D»25 

RJJ 240 POKE 1771,10:GOSUB 1500:IF PEEK(764)<255 THEN 260 

PQil 250 POKE 1771,4:GOSUB 1500: IF PEEK(764)-255 THEN 240 

XHJ 260 GET *l,N:POSITION 2,3:PR1NT CHR*(156);CHR*l156)i:POKE 1771,10 

GVJ 270 A*—DISK*:A*(LEN(A*)*1)—"PACE.PNT" 

JIJ 280 TRAP 1940:OPEN *2,4,0,A*:INPUT #2}NAME*,DATES,M,D,Y,PW*:TRAP 40000 * 

XMJ 290 FOR 1-1 TO 3:INPUT *2,A*:LS*(LEN(LS*)♦1)-A*:NEXT l 

WWJ 300 FOR 1-1 TO 3:INPUT *2,A*:HS*(LEN(HS*)♦1)-AS:NEX1 I 

FUJ 310 FOR 1-1 TO 3:INPUT *2,A*:BYTE*(LEN(BYTE*)+1)-A*:NEXT ItCLOSE *2 

HXJ 320 IF LEN(PW*)«0 THEN 390 

SLJ 330 FOR 1-1 TO 3:POS1TION 2,2 

LRJ 340 POKE 1770,4:POKE 694,0:POKE 702,64:PR1N1 "PASSWORD:":INPUT *16iA* 

XIJ 350 IF AS-PW* THEN 380 

CGJ 360 PRINT CHR*(28)»CHR*(156>jCHR*(29);CHR*(156>:"(":3-I:"> TRY AGAIN." 

NUJ 370 PRINT CHR*(253),:NEXT I * 

SUJ 380 IF 1*4 THEN GRAPHICS 0:PR1NT "Access denied.NEW 

YCJ 390 POKE 1770,10:POKE 84,2:PR1N1 "HELLO, "{NAMES;"!"*TEXTS="PACE":GQSUB 1610 
OQJ 400 PRINT "The last time you used “;TEXT*{" was on":PRINT DATE*:"." 

ANJ 410 60SUB 420:GOTO 450 

VFJ 420 PRINT SP*:PRINT "Use the “;S*;", "; 

XMJ 430 TEXT*»"SELECT":GOSUB 1610:PR1NT TEXT*;" and "; 

RAJ 440 TEXT*-“OPTION":GOSUB 1610:PR1NT TEXT*;" KEYS":RETURN 
XYJ 450 PRINT " to set today’s month, day and year." 

SUJ 460 TEXT*-“RETURN":GOSUB 1610:POKE 85,4 

MNJ 470 PRINT "PRESS ";TEXT*;“ WHEN THE DATE IS SET“:GOSUB 480:GOTO 720 

OFJ 480 POKE 764,255: PRINT : T-PEEK (84) : FOR 1 = 1776 TO 1778:POKE I, 14: NEXT I 

UNJ 490 FOR 1-1779 TO 1781:P0KE 1,0:NEXT l:FOR 1*1782 TO 1790:POKE I,4:NEXT I 

PLJ 500 POKE 84,9:RESTORE 2420:FOR 1=1 TO 3:P0KE 85,13 

WMJ 510 FOR J-l TO 15:READ N:PRINT CHRKN);:NEXT J:PR1NT :NEXT 1 

DSJ 520 FOR I-DL+17 TO DL+19:P0KE I,146:NEXT l:POKE 54276,10 

MBJ 530 FOR 1-1 TO 3:READ X:POKE 85,X:F0R J-l TO 5:READ N:PR1N1 CHR*(N)i 

LDJ 540 NEXT J:PRINT :NEXT 1 

LBJ 550 POKE 84,10:SOUND 0,0,0,0' 

TFJ 560 POKE 85,14:PRINT MONTH*(M*3-2,M*3>;:POKE 85,19:IF DC 10 THEN PRINT "0": 

OCJ 570 PRINT D;:POKE 85,23:PRINT Y;:SR=0 1 

RVJ 580 NUM—SUM (M-l ) +D-+IN1 < (Y-1752- (M<3> ) / 4> +365* (Y-l 753) -2 

FIJ 590 YH»Y~(M<3):NUM-NUM-lNTiYH/100>+lNl(YH/400)-13 

DPJ 600 WD—NUM-7*INT(NUM/7):IF SR THEN RETURN 

CEJ 610 POSITION 28,13:PRIN1 DAY*(WD*3+1,WD*3+3) 

»JJ 620 A-PEEK(53279):IF A=7 AND PEEK<764>=255 THEN W=0:GOTO 620 

I) J 630 IF A< >7 THEN SOUND 0, INT (A/2)., 6, 4 

WVJ 640 LP—0:IF M-2 AND Y/4=lNT(Y/4> THEN LP-1 

JHJ 650 IF Y/ 100— 1 NT (Y/ 100) THEN IF Y/400O INT (Y/400) THEN LP-0 

t-ClJ 660 IF A—6 THEN M=M+1:IF M>12 THEN M=1 

GXJ 670 IF A—5 THEN D=D+1:IF D>DAYS(M)+LP THEN D-l 

FWJ 680 IF A—3 THEN Y-Y+liIF Y>MIN+15 THEN Y=M1N 

UOJ 690 IF W<20 AND PEEK (53279) < >7 THEN W=W+l:SO(JND 0,0,0,0:8010 690 
OHJ 700 GOSUB 2530:IF PEEK(764)<>12 THEN 550 
AVJ 710 RETURN 

NKJ 720 SOUND 0,0,0,0:GOSUB 1520:GOSUB 1580 

PRJ 730 TEXT*—"PRESS":TEXT*(LEN(TEXT*)+ 1)-CHR*(2):POSITION 8, 1 • 

JUJ 740 TEXT*(LEN(TEXT*)+1)*"ESC“:TEXT*(LEN(TEXT*)+1)—CHR*(22) 

HAJ 750 TEXT*(LEN(TEXT*)+1)-"FOR TOMORROW’S":GOSUB 1610:PR1N1 TEXT* 

SGJ 760 CLOSE #2:0PEN #2,12,0,FILE* 

RZJ 770 POSITION 8,2:PRINT “Appointments for today,":GOSUB 7B0:GO1O 810 

HAJ 780 RESTORE 2760:FOR 1=0 TO WD:READ A*:NEXT ltPOKE 85,8 

WOJ 790 PRINT A«;CHR*(44);CHR*(32);M0N1H*(M*3-2,M*3);CHR*(46);CHR*(32)) 

DGJ 800 PRINT D;CHR*(44);CHR*(32);Y;:PRINT SP*(1,33-PEEK(85));:RETURN 
TP J 810 GOSUB 2530:IF SEC* BYTE THEN POINT #2,SEC,BYTE 
BBJ 820 GOSUB 830:GOTO 850 

CBJ 830 FOR 1-1 TO 9:A*-SP*:IF SEC+BYTE>0 THEN INPUT *2;A* 

FEJ 840 POSITION 8,I+3:PRINT A*:NEXT 1:RETURN 

VOJ 850 POKE 764,255: F’OS 1T1 ON 8, 4: GOSUB 1920: IF CT THEN GOSUB 1350 
CBJ 860 POSITION 8,2:PR1N1‘ "Tomorrow’s Appointments." 

APJ 870 TEXT*—"TO CONTINUE" : TEXT* (LEN (TEXT*) + 1 ) -SP* (1,3) : GOSUB 1610 

RXJ 880 POSITION 18,1:PRINT TEXT*;:P0S1TION 8,1:PRINT CHR*(255);CHR*(160) ' 

BIJ 890 POSITION 32,1:PRINT CHR*(32) 

XEJ 900 REC2-REC:D2=D:M2=M:Y2=Y:WD2=WD:WD=WD*1:IF WD=7 THEN WD=0 
WMJ 910 D—D+l:IF D>DAYS(M)+LP THEN D= 1:11=11+1: IF MV12 THEN M-1:V»Y+1 
NEJ 920 POSITION 8,3:GOSUB 780 

TSJ 930 GOSUB 2530:IF SEC+BYTE THEN POINT *2,SEC,BYTE 
EQJ 940 GOSUB 830 

VRJ 950 POKE 764,255: F’OS ITI ON 8, 4: GOSUB 1920: IF CT THEN GOSUB 1350 
HAJ 960 GOSUB 1450:PR1NT "Upcoming important entries:" 

MTJ 970 POKE 752, 1:F‘R 1 NT :WD=WD+1:IF WD=7 THEN WD-0 

RSJ 980 LN-LN+1: D=D+1: IF D>DAYS(M)+LP THEN D-1:M-M+1:1F MM2 THEN M=l:Y=Y+l 
IZJ 990 RESTORE 2760:FOR 1=0 TO WD:READ A*:NEXT 1 
JRJ 1000 PRINT A*<1,3);CHR*(32);M;"/";D;": "; 

CZJ 1010 GOSUB 2530:IF SEC+BYTE-0 THEN GOTO 1060 
CU 1020 POINT #2, SEC, BYTE 

YU 1030 FOR J = 1 TO 9: INPUT *2;A*:1F A* (1, 1 > < >" *" THEN NEXT J:GOTO 1100 

YIJ 1040 PRINT A*:LN=LN+1:IF LN<16 THEN NEXT J:GOTO 1060 

COJ 1050 GOSUB 1080:GOSUB 1450:NEXT J 

RCJ 1060 IF LN>15. THEN GOSUB 1080:GOSUB 1450 

FBJ 1070 GOTO 1100 

OMJ 1080 PRINT t POKE 85,8:TEXT*-"RETURN":GOSUB 1610 

HBJ 1090 PRINT “Press ";TEXT*;“ for more.":GET *1,A:LN=0:RETURN 

KWJ 1100 IF REC<REC2+7 THEN 970 

DHJ 1110 D—D2:M-M2:Y—Y2:WD-WD2:TEXT*—"RETURN":GOSUB 1610 
DNJ 1120 PRINT :POKE 85,8:PRINT “Press ";TEXT*;" to continue.“iG£T #1,A 
EQJ 1130 GOSUB 1450:PRINT :PR1NT "Want to enter appointments? “;:GOSUB 2460 
WMJ 1140 IF N-78 THEN 2800 

XWJ 1150 PRINT "Want to define the control keys? “;:GOSUB 2460 * 

WJJ 1160 IF N=78 THEN 1220 

IPJ 1170 PRINT "Type up to 24 characters for each":PRINT “control key." ^ 

OSJ 1180 TEXT*-"RETURN":GOSUB 1610:PR1NT "Press "{TEXT*;" by itself when you’ve" 

UFJ 1190 PRINT "finished defining control keys." 

HVJ 1200 PRINT :PRINT :FOR 1=65 TO 74:PRINT MR*;"CONTROL-";CHR*(I);":" 

JMJ 1210 INPUT #16;A*:IF LEN(A*) THEN MSG*((1-65)*24+1,<1-65)*24*24)=A*:NEXT I 
6FJ 1220 GOSUB 1450:GOSUB 420:PRINT "to select date to add appointments." 

OFJ 1230 PRINT iPOKE 85,4:TEXT*="RETURN":GOSUB 1610 
SPJ 1240 PRINT “PRESS “;TEXT*;“ WHEN THE DATE IS SET" 

NYJ 1250 POKE 752,1:GOSUB 480:PQKE 762,0:SOUND 0,0,0,0:GOSUB 1520:GOSUb 1580 
UVJ 1260 TEXT*—"PRESS":TEXT*(LEN(TEXT*)♦1)=CHR*(2):TEXT*(LEN(TEXT*)+1)-"ESC" 

JCJ 1270 TEXT* (LEN (TEXT*) +1) -CHR* (22) : TEXT* (LENlTEXT •> + 1 ) — "TO CONTINUE" 

MJJ 1280 GOSUB 1610:POSITION 8,1:PRINT CHR*(160);TEXT*;CHR*(160)1CHR*(160) 

CYJ 1290 POSITION 8,t2:PRlNT "Appointments tor: “:GQSUB 780 
YMJ 1300 IF SEC+BYTE>0 THEN POINT #2,SEC,BYTE 

SJJ 1310 GOSUB 830:POSIT1ON 8,4:G0SUB 1920:IF C1 THEN GOSUB 1350 
BAJ 1320 GOSUB 1450:PR1NT "Add or change more appointments? GOSUB 2460 
WNJ 1330 IF N-78 THEN 2800 
FEJ 1340 GOTO 1220 

XIJ 1350 NF—1lGOSUB 2530:IF SEC+BYTE>0 THEN NF*0:PO1NT *2,SEC,BYTE:GOTO 1390 
SJJ 1360 CLOSE *2:OPEN *2,9,0,FILE* 

NJJ 1370 NOTE #2,SEC,BYTE:H-INT(SEC/256):L-SEC-H*256 

UIJ 1380 HS*(REC,REC)-CHR*(H):LS*(REC,REC>-CHR*(L):BYTE*(REC,REC)-CHR*(BYTE) 

HOJ 1390 POKE 842,13:F0R 1-1 TO 9:P0S1T10N 8,3+1:INPUT »16;A* » 

WRJ 1400 IF LEN(A*)>24 THEN A*=A*(1,24> 

SQJ 1410 IF LEN(A*)<24 THEN A*(LEN(A*)+1,24)«SP* 

FLJ 1420 PRINT #2;A*:NEXT I:POKE 842,12 

VLJ 1430 IF NF THEN CLOSE »2:0PEN *2,12,0,FILE* 

Phw 1440 CT-0:RETURN 

TCJ 1450 GRAPHICS 0:POKE 16,64:POKE 53774,64:A-USR(1664) 

HXJ 1460 POKE 559,0: POKE 1767,0.:POKE 1768,0: TEXT*=CHR* (32): SET COL OR 4,9,0 
OTJ 1470 POKE 53248,0:POKE 53249,0 

NFJ 1480 PRINT CHR*(125);:POSITION 0,0:PR1NT M1*:P0S1TI0N 0,1:PR1NT M2* 

FBJ 1490 POKE 559,34:RETURN 

GBJ 1500 FOR 1-1 TO D:IF PEEK(764)-255 THEN NEXT 1 
CTJ 1510 RETURN 

NSJ 1520 GOSUB 14S0:POKE 559,0:PRINT CHR*(125);:POKE 623,0:POKE 764,255:CT-0 
OHJ 1530 FOR 1-1771 TO 1790:POKE I,10:NEXT 1 

UWJ 1540 POKE *1767, l:POKE 1768,8:POKE 1769, 14:POKE 1770, 14:POKE 1788,1 
MLJ 1550 RESTORE 27801FOR 1-0 TO 31:READ N:PGKE DL+1,N:W£XT 1 
DIJ 1560 POSITION 8,0:PRINT M3*;:POSITION 8,13:PR1NT 114* 

FAJ 1570 POKE 559,34iRETURN 

LIJ 1580 SETCOLOR 4,9,0:POKE 704,144:P0KE 705,144:POKE 53277,3:PUKE 53248,48 
JPJ 1590 POKE 53277,0:POKE 53261,255:POKE 53249,176:POKE 53262,255 
KKJ 1600 POKE 53256,3:POKE 53257,3:RETURN 
KUJ 1610 FOR 1-1 TO LEN(TEXT*) 


Applying The Atari 
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Manager Additions appears on 
page 162 of December’s col¬ 
umn, and the continuation ap¬ 
pears on page 66—confusion, 
confusion! 

520 ST Newsletter 

The Jackintosh Boston Users’ 
Group is a part of The Boston 
Computer Society for Atari 


COMPUTER SHOPPER, 

520ST users and has sent me its 
latest newsletter for ST users. 
Their address: The Boston 
computer Society, Jackintosh 
User Group, One Center 
Plaza, Boston, MA 02108. 
Other groups: Let’s see your 
newsletters—send them in to 
me. 

PACE 

Now it’s time to enter 
PACE, the Personal Appoint- 


JANUARY 1986 Page 149 

ment Calendar & Editor. 
PACE will keep you in step 
with your latest plans and will 
remind you days in advance 
when important occasions, 
such as birthdays or exams, are 
approaching so you’ll have 
time to prepare (i.e. buy and 
send out cards, or study). 
PACE can also provide you 
with a printout of your daily 

continued on page 150 


OUR BIGGEST SALE EVENT EVER! 


HARD DISK KITS 


COMPUTERFACTS 

schematics taken 



complete 
10MB Kit 

only $410 


Complete Internal Vfc-hi 10MB kit, only $410. 
Same kit with low-power 3-V2 " drive, $485. 
3-V2" 10MB Winchester drive alone, now $385. 


waveforms 

troubleshooting 

techniques 


71, TAKEN WHILE 
PRESSING THE 
_T nu THE A KEY 


j| 4.87V .72ih 

1 74LS175PC I 


Buy now and get INTRODUCTORY PRICES. Com¬ 
plete systems $39 each: Apple lie, IBM PC, TRS-80 L 

Components $19 each: Apple ll/ll-Plus, He; 
Epson MX-80F/T, MX-100, F*80, FX-100. 

Over 40 more. Write for list. 


SPECIAL BONUS Norton Utilities Ver 3.0 Reg $90, only $60 w/purchase of any disk drive. 
IBM PC-POS 3.1 (the real thing) Reg $65, only $50 w/purchase of motherboard. 

cases pur pledge 


. IBM style, 5 or 8 slot 
Reg $95, Sale $69. 

KEYBOARDS 



5150 style Reg $125, 
on sale for only $90. 


fully IBM PC 
compatible 

runs IBM’s 
PC-DOS 


These are excellent foundations for complete 
business, personal, and workbench/integration PCs. 

• MB-1 256K motherboard, 8 exp slots, w/OK 
Reg $295, now $220; 256K Sale $260. 

• MB-3 640K motherboard, 8 exp slots, w/OK 
Reg $399 now $250; 640K Sale $325. 

• MB-2 640K motherboard, 4.77 and 7.6MHz clock 
8 exp slots, W/256K Reg $449, now $369. 


SUPER SOFTWARE SPECIALS 

• Microsoft Macro assembler BEST PRICE $107, 

BASIC interp Reg $340, Sale $280. 

• Ellis/Utah COBOL or PASCAL compilers, 

or BASIC interpreter, only $39 each. 

• Open Systems Business BASIC interpreter, 

Reg $180, Sale $155. 

• True Lattice C compiler Reg $475, Sale $349. 



Complete system on 
sale under $1,000. 


• technical support 

• one-year warranty 

• service after sale 

• and low prices 


LAST MINUTE 
ITEMS 

NEC V20 CPU: 
increase the speed 
of your 8088 system 
50 to 90% $22 

RAM, 9-chip sets: 

ID-256 256K $32/set 

DRIVES super quality: 

F-4 48tpi DSDD $99 

5151 STYLE KEYBOARD: 
KB-4 keyboard $119 

135W POWER SUPPLY: 
PS-135 side sw $90 


PACE continued on page 4S0— 


ADD-ON-CARDS SPECIALS 

HDC-1 OMTI hard disk controler, up to 2 drives, with cables, super fast controller.$175 

MGC-2 hi-res TTL monochrome card Reg $130, only $95; CL-1 clk/cal w/battery, Reg $59 now. $56 

l/O-l floppy disk controller, clock/cal, serial, parallel, and game ports, more.. $145 

MFC-4 multifunction 384K RAM, clock/calendar, serial, parallel, w/OK $145, W/384K. $170 

SYS-3 COMPLETE SYSTEM: 256K RAM, keyboard, FDC-2,2 F-4s, mono or color card..... $999 

Shipping and handling: drives/motherboards/cases/power supplies $4.50 ea, cards $3 ea, 
software $2.50 ea, modems/keyboards $4 ea, COMPUTERFACTS $3 ea, memory/diskettes $1/set/box. 

CA residents add 6% sales tax. 


To order or for further Information: 
CALL (619) 375-5744 

The SBC MART. P.O .Box 1396. Rl dgecre8t, CA83555 

rtir^BCTNKRTlirpart oTcomputlng Technology, 821-B Commercial StreeLRIdgecreet, CA >3555 
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Applying The Atari 
continued from page 149 

schedule each day. 

Since the program is over 
300 lines long, you should be 
prepared to spend some time 
typing it in. It’s a practical, 
user-friendly program, and it’ll 


be worth the effort. PACE re¬ 
quires a minimum of 32K and 
will work with diskette system 
only. Since PACE takes advan¬ 
tage of the random-access cap¬ 
abilities of the disk drive, a 
cassette recorder cannot be 
used. 


PACE program continued from page 149 

GOJ 1620 TEXT*(I,I>*CHR*(ASC(TEXT*(I,1)>+120)*NEXT 1*RETURN 
TMJ 1630 POKE 85, (40-LEN(TEXT*> >/2*PRlNT TEXT** RE I'URN 
TGJ 1640 TRAP 40000;CT«0 

RVJ 1650 GET #1,KiIF PEEK(694>>0 THEN K“K-128:P0KE 694,0 

XIJ 1660 IF K>27 AND K<123 OR K-127 OR K=154 OR K“155 OR K“l26 THEN 1840 
LVJ 1670 IF K-16 THEN GOSUB 2650:GOTO 1920 
YNJ 1680 IF K*254 THEN 1840 
BWJ 1690 IF K< >157 THEN 1720 

UNJ 1700 POKE 752,1;PRINT CHR*(K>;:V-PEEK(84);POSITION 8,13:PR1NT CHR*(156); 

WQJ 1710 CT*CT+liPOKE '84,V;POKE 85,8;GOTO 1920 
BSJ 1720 IF K0156 THEN 1750 

RCJ 1730 POKE 752,1iPOKE 17S7,4*PR1NT CHR*(K>;sV*PEEK184)*CT»CT+1 
JOJ 1740 POSITION 8,12*PRINT CHR*(157)POKE 1787,10*GOTO 1710 
ICJ 1750 IF K-27 THEN RETURN 
YQJ 1760 IF K<255 THEN 1790 * 

GPJ 1770 PRINT CHR*(K) )jH*PEEK(B 5> *V*PEEK(84) tPOSITION 32,4*POKE 752,1 
RE<J 1780 PRINT IN«tP0SIT10N H,V;GOTO 1850 
WIJ 1790 IF K>10 THEN 1820 

MHJ 1800 POKE 752,itPRINT MSG*(K*24-23,K*24-PEEK(85)+8> 

QEJ 1810 POKE 85,8;CT*5*GOTO 1850 

WMJ 1820 SOUND 1,60,6,8;FOR 1*1 TO 40;NEXT l*SOUND 1,0,0,0 
FPJ 1830 GOTO 1650 

NVJ 1840 CT»CT+l*POKE 752,1*PR1NT CHR*(K);:IF K*156 OR K-157 THEN POKE 85,8 
TEJ 1850 IF PEEK(85)>31 THEN POKE 85,8;P0KE 84,PEEK<84)+1 
AXJ 1860 IF PEEK(84)>12 THEN POKE 84,4 
LJJ 1870 IF PEEK(85)>7 THEN 1910 

RPJ 1880 IF K*126 THEN POKE 85,32*P0KE 84,PEEK(84)-1 * PRINT CHR*<K))*GOTO 1910 

KZJ 1890 IF K*155 THEN POKE 85,8;G0T0 1910 

ADJ 1900 POKE 85,31*PQKE 84,PEEK<84>-1 

ARJ 1910 IF PEEK(84)<4 THEN POKE 84,12 

NXJ 1920 POKE 752,0;PRINT CHR*(31)*CHR*(30); 

FQJ 1930 GOTO 1650 

GEJ 1940 CLOSE #2*E“PEEK(195) 

BJJ 1950 IF E< >144 THEN 2060 

XNJ 1960 POSITION 2,2xPRlNl DEL*)"Diskette must be formattea. 

OYJ 1970 POKE 7S2,0*PRINT "Went to format this diskette? "j*GOSUB 24o0 
UUJ 1980 IF N*78 THEN 200 
HHJ 1990- POKE 752,1 

GKJ 2000 PRINT MR*;“Press “;S*;“ to format disk in drive DISK*(2,2) 

IPJ 2010 TEXT*-"OPTION":GOSUB 1610;PR1N1 "or press ";TEXT*;" to cancel." 

XGJ 2020 A*PEEK(53279)tIF A<>3 AND A<>6 THEN 2020 
OPJ 2030 IF PEEK(53279)*3 THEN 200 

YAJ 2040 PRINT "Formatting..."*XIO 253,*7,33,87,DISK* 

BYJ 2050 POSITION 2,2*PRINT DEL*;"Formatting completed."tGOTO 2080 
BGJ 2060 IF E< >170 THEN 2380 

RRJ 2070 POSITION 2,2*PRINT DEL*;"No appointment file on this disk." 

GYJ 2080 POKE 752,0;PRINT "Create an appointment ttle? ";:GOSUB 2460 
UNJ 2090 IF N-78 THEN 200 

TXJ 2100 POSITION 2,2;PRINT DEL*;"Enter your name.";INPUT *16;NAME* 

TJJ 2110 PRINT MR*|"Enter the date (Example: 1/12/86).":INPUT *16;A* 

LMJ 2120 TRAP 2110:FOR 1*2 TO LEN(A*>:IF A*< 1,1)0"/" THEN NEXT 1 

EQJ 2130 M*VAL(A«(1,1-1)>:FOR J*l+2 TO LEN<A*):1F A*(J,J)<>"/“ THEN NEXT J 

VUJ 2140 D»VAL (A* (I +1, J-l)); Y*VAL (A*(J+l)) ; IF Y>99 THEN 2150 

FOJ 2150 TRAP 40000;C*INT(H1N/100) *100; IF Y>*M1N-C THEN Y“Y+C:GOTO 2170 

FAJ 2160 Y-Y+C+100 

NNJ 2170 PRINT HR*;"Enter a password (RETURN for none).“*INPUT *16;PM* 

THJ 2180 SR*11 GOSUB 580 

GLJ 2190 RESTORE 2760;FOR 1*0 TO WD;READ A*iNEXT 1;DATE**A* 

LFJ 2200 DATE*(LEN(DATE*>+1>*CHRS(44);DATE*(LEN(DATE*)+1)*CHR*(32) 

HJJ 2210 DATE*(LEN(DATE* > +1>“MONTH*(M*3-2,M*3>:DATES(LEN(DATES)+1)“CHR*(46) 

KZJ 2220 DATE*(LEN(DATE*)+1)“CHR*(32):DATE*(LEN(DATE*) + 1 )“STR* <D) 

LI J 2230 DATE*(LEN(DATE*)+1 >“CHR*(44):DATE*(LEN(DATE*)+1)=CHR*(32) 

WHJ 2240 DATE*(LEN(DATE*)fl)“STR*(Y) 

SBJ 2250 PRINT MR*)“NAME; ";NAME*:PRINT “DATE; ";DATE* 

GNJ 2260 IF LEN(PW*) THEN PRINT “PASSWORD: ";PW* 

GGJ 2270 IF LEN(PW»)-0 THEN PRINT "NO PASSWORD." 

FTJ 2280 PRINT "Is all of the above correct? ";*GOSUB 2460 

KTJ 2290 IF N*78 THEN GOTO 2100 

RMJ 2300 PRINT "Saving this data..." 

IOJ 2310 A*«DISK*iA*(LEN(A*)+1)“"PACE.PNT" 

JRJ 2320 OPEN *2,8,0,A**PR1NT *2)NAME*;CHR*(155))DATE*)CHR*(155)) 

SRJ 2330 PRINT *2)M)CHR*(155))D;CHR* (1*55)) Y;CHR*(155) ;PW* 

EZJ 2340 A*»CHR*(0);A*(122)“CHR*(0);A*(2)*A* 

FHJ 2350 FOR 1*1 TO 9*PR1N1 *2;A**NEXT 1;CL0SE *2 

KDJ 2360 A*“DlSK*x A*(LEN(A*) ♦ l)“"PACE.DAT";OPEN *2,8,0, A*;CLOSE «2iPOKE 752,1 
JYJ 2370 GOSUB 1450;POKE 85,4:PRINT "Appointment file has been made.";GUTO 220 
FLJ 2380 TEXT**"ERROR #"*TEXT*(LENiTEXT*)+1>“SIRS(E>*GOSUB 1610*GOSUB lo30 
NUJ 2390 TEXT*«"START":GOSUB 1610*PR1N1 "Press ";TEXT*;“ to start again." 

TCJ 2400 IF PEEK (53279) 06 THEN 2400 
DEJ 2410 GOTO 200 

YOJ 2420 DATA 17,18,18,18,5,17,18,18,5,17,18,18,18,18,5 

OYJ 2430 DATA 124,32,32,32,124,124,32,32,124,124,32,32,32,32,124 

YKJ 2440 DATA 26,18,18,18,3,26,18,18,3,26,18,18,18,18,3 

VXJ 2450 DATA 19, 17, 18, IB, 18,5,27,124,32,32,32,124,35,26,18,18,18,3 

IEJ 2460 H-PEEK(85) 

ELJ’2470 POKE 694,0;POKE 702,64:GET *1,N:1F N>128 THEN N=N-128 
KWJ 2480 IF N-78 THEN PRINT "NO";RETURN 
OFJ 2490 IF N*89 THEN PRINT "YES"*RETURN 
YOJ 2500 PRINT 

HPJ 2510 PRINT CHR*(156))CHR*(253))“Y OR N")CHR«(28>) 

LFJ 2520 POKE 85,H:PRINT CHR*(30);CHR*(31>)tGOTO 2470 

VNJ 2530 REC*SUM(M-1)+D* IF M>2 THEN REC-REC+1 

KHJ 2540 SEC«ASC (HS* (REC,REC) > *256+ASC(LS* (REC,REC) ) 

POJ 2550 BYTE-ASC(BYTE*(REC,REC)):RETURN 
JHJ 2560 1*40:DIM Ml*(1>,M2*(1),M3*(I),M4*(1) 

RRJ 2570 TEXTS—CHRS(32) 

XHJ 2580 TEXT*(LEN(TEXT*)+1)“"Personal Appointment Calendar 6 Editor" 

APJ 2590 TEXT*(LEN(TEXT*)+1)-CHR*(32)sGOSUb 1610:M1S*TEXT* 

LCJ 2600 TEXT*-SP*(1,7);TEXT*(LEN(TEXT*>+1>““Copyright 1986 Jeff Brenner" 

YXJ 2610 TEXT*(LEN(TEXT*)+1)“SP*(1,6)*GOSUB 1610:M2*“TEXT* 

UIJ 2620 TEXT**"PACE APPOINTMENT DISPLAY"*GOSUB 1610*M3*»1EXT* 

UHJ 2630 TEXT*-"PRESS CONTROL-P TO PRIN1":G0SUB 1610;M4**TEXT* 

CYJ 2640 RETURN 

NHJ 2650 TRAP 2680:OPEN *3,8,0,"P*"*PRINT *3 

CJJ 2660 FOR 1-2 TO 12sPOKE 842,13*P0S1T1DN 8,1:INPUT *16;AVsPRlNT *3;A**NEXT 1 
IPJ 2670 POSITION 8,4*PRINT *3:RETURN 

QVJ 2680 CLOSE *3;TEXT*»"PR1N1ER DOES NOT RESPOND":GOSUB 1610 
CTJ 2690 H*PEEK(85)*V*PEEK(84)* POSITION 8,13:PRINT TEXT* 

BJJ 2700 POKE 1788,14*S0UND 1,50,6,8:FOR 1*1 TO 40:NEXT l*SOUND 1,0,0,0 
YNJ 2710 POSITION H,V:PR1NT CHR*(31);CHR*(30); 

RAJ 2720 IF PEEK(764>*255 THEN 2720 

AUJ 2730 POSITION 8, 13:PR1NT M4*:P0KE 1788,1: POSITION H,V:RETURN 

BHJ 2740 DATA JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,50,MAY,31,JUNE,30,JULY,31 

PRJ 2750 DATA AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31 

EMJ 2760 DATA SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY 

BAJ 2770 DATA 0,31,59,90,120,151,181,212,243,273,304,334 

MXJ 2780 DATA 240,112,112,194,64,156,130,112,130,130,112,130,128,130,128,130 
LUJ 2790 DATA 128,130,128,130,128,130,.128,130,128,130,128,130,130,65,32,156 
SZJ 2800 GOSUB 1450*PRIN1 “Saving appointment data...":CLOSE *2 
NDJ 2810 M*M2* D*D2:Y*Y2*WD-WD2 

HIJ 2820 GOSUB 780:POKE 842,13:POSITION 8,4:INPUT Dio;DATE*:POKE 842,12 
PHJ 2830 A*“D1SK*:A*(LEN(A*)+1>“"PACE.PNl“:OPEN *2,8,0,A* 

EZJ 2840 PRINT *2)NAME*;CHR*(155);DATE* 

SYJ 2850 PRINT *2)M|CHR*(155))D;CHR*(155);Y;CHR*(155);PW* 

XTJ 2860 FOR 1*0 TO 2:PR1NT *2;LS*(14122+1,1*122+122):NEXT 1 
XQJ 2870 FOR 1-0 TO 2:PR1N1 *2)HS*(1 * 122*1,1 * 122+122):NEXT 1 
EQJ 2880 FOR 1*0 TO 2;PR1NT *2)BYTE*(1s122*1,1*122*122)lWEXT 1 
NKJ 2890 CLOSE #2*PR1NT "Run this program again? ")*GOSUB 2460 • 

CNJ 2900 IF N-89 THEN GRAPHICS 0;RUN 

UWJ 2910 GRAPHICS 0:END 

SNJ 2920 REM MULTI-LUMINANCE SUBROUTINE 

OJJ 2930 REM COPYRIGHT 1985 JEFF BRENNER 

AQJ 2940 IF PEEK(1664)>0 THEN RETURN 

XRJ 2950 RESTORE 3000;1-0 

CLJ 2960 READ NUM* IF NUM—1 THEN 2980 

VHJ 2970 TOT*TOT+NUM+1: POKE 1664+1, NUM: I “1 + 1 iGOl'O 2960 

VQJ 2980 IF TOTO13108 THEN PRINT "ERROR-CHECK DATA L1NES":ST0P 

GCJ 2990 A-USR(1664);RETURN 

RQJ 3000 DATA 104,173,48,2,133,204,173,49,2,133,205,160,26,169,10 
VMJ 3010 DATA 153,230,6,136,208,250,160,0,177,204,9,128,14S,204,160 
8HJ 3020 DATA 3,177,204,9,128,145,204,160,6,177,204,9,128,145,204 
MHJ 3030 DATA 200,192,28,208,245,169,197,141,0,2,169,6,141,1,2 
RVJ 3040 DATA .73,14,212,9,128,141,14,212,96,72,152,72,173,l1,212 

RHJ 30M r> ATA mi rV ia ', a, ■)*!:, i:, 7^,^ ?»*, _ 

OHZ 3060 DATA «*T, ?**, I f r , 111 l, ft 1, I r.9 t ?04 r ?4e. ?38 r -1 ~ ’ 

(END OF LISTING! 


Enter the program listed un¬ 
der the “Personal Appointment 
Calendar & Editor” heading 
and save it to diskette. 
Remember to use Program 
Perfect so you don’t get stuck 
with inumerable typing er¬ 
rors. 
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Photo 3 

When you run the program, 
you’ll be ased to “INSERT 
YOUR DATA DISKETTE.” If 
you are using a single-density 
format, you’ll need a separate 
blank diskette to store the data. 
If you’re using dual-density 


just press RETURN if you 
would rather not have a pass¬ 
word. If you opt for the pass¬ 
word, be sure it’s one you’ll 
remember! 

You’ll be given the oppor¬ 
tunity to correct any errors and 
then will be brought to the 
main screen (see Photo 2). 

This is the screen that you’ll 
see each time you run the pro¬ 
gram. If you have chosen a 
password, you’ll have to enter 
the password correctly before 
you can access this screen. 

Your name is displayed a- 
long with the date that you last 
used PACE. The date in the 
center of the screen is used to 
display the current date. Since 
you just created a data file, the 
previous date and the current 
date will be the same. When 
you use PACE in the future, 
use the START, SELECT and 
OPTION keys to set the new 
date. The day of the week is 
automatically calculated by 
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Photo 

format, you have room to store 
the data file and the program 
on the same diskette. If you , 
place an unformatted diskette 
into the dirve, the program 
will format it for you if you 
answer Y to the “Want to for¬ 
mat diskette?” prompt. 

Next, PACE will create an 
appointment file on the data 
diskette. Type Y for the 
“Create an appointment file?” 
prompt and enter your name 
and today’s date as directed. 
Then you will be asked to enter 
a password. Since this will be 
your personal appointment 
calendar, you may want to 
prevent others from peering at 
your plans. You can enter any 
password you want, or you can 


the program for any day of the 
year. You’ll probably want to 
use PACE at least once a day 
to see your daily plans, upcom¬ 
ing plans, and to enter new 
appointments. 

Press RETURN when the 
current date is set and the 
PACE Appointment Display is 
shown. This mini-screen is 
where your daily appointments 
are read. Since you have not 
yet entered any appointments, 
this screen will be blank, but 
Photo 3 shows what a typical 
schedule might look like. The 
asterisks denote important oc¬ 
casions that are to be brought 
to our attention days in ad¬ 
vance, such as birthdays or 
deadlines. If you have a print¬ 


II pc i 


important #rstruts; 

. rti 

J 

Payment Jut 


,1 c 11 % 


Cliff 


5ARY-GET CXFTf ‘ * 

MCP 

A " P l- 

*L#r**# 6ifthday 

1 C C: 

% / $ , f . 

** f in# 

flip 

i' *2; 

# 

*£*GR ~ 3TUDY? 

« IK to coivuno* 


Photo 4 


er, CONTROL-P can be used 
at any time to print out the 
schedule on paper. You could 
also make changes on this 
screen at any time and they 
will be recorded on the disk¬ 
ette. 

Pressing ESC will show you 
the following day’s schedule. 
You can revise or print out this 
schedule too. 

Another press of the ESC 
key brings you to the “Upcom¬ 
ing important entries” screen. 
Here the program gives you a 
look at important occasions 
(those that had been preceded 
by an asterisk) that are ap¬ 
proaching within the next 
seven days (see Photo 4). 

When you press RETURN, 
you are asked if you want to 
enter appointments. If you 
type Y for this prompt, you 
will be returned to the main 
screen where you will be ask¬ 
ed to set the date for which you 
want to enter appointments. 
You will then be brought to the 
PACE Appointment Display 
where you can enter appoint¬ 
ments for that date. You can 
type freely on the mini-screen 
as you choose, using the Atari’s 
control and cursor keys for po¬ 
sitioning and editing. 

You can continue entering 
appointments for any number 
of future dates by answering Y 
each time to the “Add or 
change more appointments?” 
prompt. 

When you’re done, the pro¬ 
gram will take a few seconds to 
save its reference data to the 
data diskette and will give you 
the option of stopping or rerun¬ 
ning the program. Up to 366 
days of schedules can be stored 
on a diskette. 

Happy New Year to all read¬ 
ers, and may you never miss a 
dentist appointment, birthday, 
anniversary, studying for an 
exam, etc., again! 

Next Month 

We’ll have more details on 
PACE and hopefully a Halley’s 
Comet program, more reader 
mail and surprises too. Stay 
tuned. 

Readers' questions , com¬ 
ments and contributions are 
welcome. Please enclose a self- 
addressed, stamped envelope 
for a personal reply. 

A diskette of the programs 
listed in 'this month's column is 
available from the author for 
$7.00, postpaid. Please specify 
your disk drive model. 

“Program Perfect'’ is utility 
used to check for typing errors 
while entering programs from 
this column. Readers may send 
$5.00 for a diskette of this pro¬ 
gram and documentation. 

Address all correspondence 
to: 

Jeff Brenner 

“Applying The Atari 1/86” 

c/o Computer Shopper 
P.O. Box F 

Titusville, FL 32781-9990 • 









